home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #1 / Amiga Plus CD - 2000 - No. 1.iso / scripts / JPG < prev    next >
Encoding:
Text File  |  1999-12-05  |  976 b   |  39 lines
  1. failat 31
  2. if not exists env:quickstarted
  3. Echo "Die CD ist nicht eingerichtet!*nBitte zuerst Quickstart ausführen!"
  4. wait 2
  5. quit
  6. endif
  7. set choiced `APCD:C/requestchoice "Amiga+ (C)" "Welchen JPG-Anzeiger wollen sie verwenden?" "Fast-JPEG (Emp.!)|ViewTek|Mysticview|Eigenen..."`
  8.  
  9. if $choiced eq 0 val
  10. lab choicing
  11. set APCDJPG `requestfile TITLE "Bitte Viewer wählen:" DRAWER APCD:A+tools/jpg`
  12. cd `get apcdjpg` >NIL: ;Checkt ob File oder dir
  13. if not warn
  14. skip back choicing
  15. endif
  16. endif
  17. if $choiced eq 1
  18. set APCDJpg APCD:A+Tools/jpg/fjpeg
  19. endif
  20. if $choiced eq 2 val
  21. set APCDJpg APCD:A+Tools/jpg/vt
  22. endif
  23. if $choiced eq 3 val
  24. set APCDJpg APCD:A+Tools/jpg/mysticview
  25. endif
  26.  
  27. set JPG0 "Eigener!"
  28. set JPG1 "FastJpeg!"
  29. set JPG2 "ViewTek!"
  30. set JPG3 "Mysticview!"
  31. requestchoice "Amiga+ (C)" "Neuer Viewer: `get JPG$choiced`" Save|Use|Cancel >env:save
  32. if $save eq 1
  33. setenv APCDJPG "`get APCDjpg`"
  34. copy env:APCDjpg envarc: quiet >NIL:
  35. endif
  36. if $save eq 2
  37. setenv APCDjpg "`get APCDjpg`"
  38. endif
  39.